Ultra Gameplayers 109/Ultra Gameplayers 109.iso/pc/media/new_ugp.dxr/00346_SoundControl.ls

Text File | 1998-02-10 | 207 b | 11 lines

on keyDown
  set soundvol to min(max(value(the key) * 255 / 7, 0), 255)
  SetVolume(soundvol)
end

on SetVolume level
  repeat with index = 1 to 4
    set the volume of sound index to level
  end repeat
end